  10 A=0;H=0;S=0;E=0;CLEAR ;CY=-38;PRINT "        * POP  UP *
  20 BC=RND (256);FC=BC+4+RND (32)×8;B=RND (140)-70;C=RND (18)+18;GOSUB 160
  40 IF TR(1)=1GOTO 90
  50 GOSUB 160
  60 A=A+1;IF A>15H=H+S;GOTO 170
  70 GOTO 20
  80 CLEAR ;CY=0;PRINT "   YOUR SCORE IS:",P;STOP
  90 E=E+1;GOSUB 800;CY=C;GOSUB 830;T=B+1;IF CX>=BIF CX<=TGOSUB 330;GOSUB 840;CLEAR ;GOSUB 150;GOSUB 160
 120 IF E>4GOTO 140
 130 GOTO 90
 140 E=0;GOTO 50
 150 NT=1;CY=-30;CX=60;PRINT "HIT";CY=-30;CX=60;PRINT "   ";S=S+1;L=S×50;NT=0;CY=-30;CX=-72;PRINT #1,L;RETURN 
 160 NT=1;BOX B,C,12,12,3;MU=16;BOX B,C,10,10,3;MU=14;BOX B,C,8,8,3;MU=16;BOX B,C,6,6,3;MU=14;BOX B,C,4,4,3;MU=16
 165 BOX B,C,2,2,3;MU=14;NT=0;RETURN 
 170 S=0;B=20;U=0;CY=-38;CX=-75;PRINT "     *DECK THE DUCK*
 180 Q=80
 190 FOR A=QTO -85STEP -6;GOSUB 300;GOSUB 800;CY=B
 200 IF TR(1)=1GOSUB 830;T=A+1;IF CX>=AIF CX<=TGOSUB 860;GOSUB 150;GOSUB 300;R=A+9;GOTO 230
 210 GOSUB 300
 220 NEXT A;U=U+2;R=-80;GOSUB 260
 230 FOR A=RTO 85STEP 6;GOSUB 280;GOSUB 800;CY=B
 240 IF TR(1)=1GOSUB 830;T=A+1;IF CX>=AIF CX<=TGOSUB 860;GOSUB 150;GOSUB 280;Q=A-9;GOTO 190
 250 GOSUB 280;NEXT A;U=U+2;GOSUB 260;GOTO 180
 260 IF U>=2H=H+S;GOTO 470
 270 RETURN 
 280 BOX A-1,B,6,4,3;BOX A-3,B,4,1,3;BOX A,B+3,1,2,3;BOX A+1,B+5,4,3,3;BOX A+5,B+6,1,1,3;BOX A+5,B+4,1,1,3
 290 BOX A+1,B+6,1,1,3;BOX A+4,B+5,1,1,3;RETURN 
 300 BOX A-1,B,6,4,3;BOX A+1,B,4,1,3;BOX A-3,B+3,1,2,3;BOX A-3,B+5,4,3,3;BOX A-4,B+6,1,1,3;BOX A-7,B+5,1,1,3
 310 BOX A-8,B+4,1,1,3;BOX A-8,B+6,1,1,3;RETURN 
 330 NT=1;FOR Y=1TO 10;BOX B,C,RND (10),RND (10),3;MU=Y;NEXT Y;RETURN 
 470 E=0;S=0;BC=0;FC=135;NT=0;CY=-38;CX=-75;PRINT "     ** S K E E T **
 480 NT=0;E=E+1;IF E=8H=H+S;P=H×50;GOTO 80
 490 J=RND (3)+1;C=RND (12)+5;Y=0;K=0;IF J=1C=16;GOTO 570
 500 IF J=2C=16;GOTO 620
 510 IF J=3GOTO 540
 520 K=RND (1)+1;Y=RND (45)-10;IF K=1GOTO 620
 530 GOTO 570
 540 M=RND (150)-75;FOR Y=-20TO 40STEP C;GOSUB 850
 550 IF TR(1)=1CX=M;CY=KN(1)÷3+1;GOSUB 830;IF CY=YGOSUB 840;GOSUB 150;GOSUB 850;GOTO 480
 560 GOSUB 850;NEXT Y;GOTO 480
 570 FOR M=80TO -80STEP -C
 580 IF K>0GOSUB 850;GOTO 600
 590 Y=Y+4;GOSUB 850
 600 IF TR(1)=1GOSUB 800;CY=Y;GOSUB 830;IF CX=MGOSUB 840;GOSUB 150;GOSUB 850;GOTO 480
 610 GOSUB 850;NEXT M;GOTO 480
 620 FOR M=-80TO 80STEP C;GOTO 580
 800 CX=KN(1);IF CX>75CX=75
 810 IF CX<-72CX=-72
 820 RETURN 
 830 XY=-8192;&(23)=255;LINE CX,CY,3;&(21)=255;XY=-8192;&(21)=0;LINE CX,CY,3;&(23)=0;RETURN 
 840 W=0;NT=2;FOR W=1TO 10;BC=135;FC=0;MU=W;BC=0;FC=135;NEXT W;RETURN 
 850 BOX M,Y,7,1,3;BOX M,Y,1,1,3;RETURN 
 860 NT=4;MU=16;MU=16;MU=16;MU=16;MU=16;NT=0;RETURN 
>:RETURN ;RUN 
